
module TestClient where

import Client
import IdObject

f1, f2, f3 :: Client
f1 = Client 1 ("Adam", "Kowalski", "12.06.1981", "Pl. Politechniki 1 Warszawa")
f2 = Client 2 ("Amon", "Re", "29.02.-2700", "Giza")
f3 = Client 3 ("Zygmunt", "III Waza", "20.06.1566", "Szwedzki zamek Gripsholm")
f4 = Client 4 ("Obi-wan", "Kenobi", "2.01.19981", "Tatooine")


-- ==
b1 = (f1 == f2)
-- b1 = False
b2 = (f1 == f1)
-- b2 = True


cid = getId f3
-- id = 3

clientInfo = getClientInfo f2
-- filmInfo = ("Amon", "Re", "29.02.-2700", "Giza")

name = getName f1
-- name = "Adam"

surname = getSurname f3
-- surname = III Waza

birthDate = getBirthDate f2
-- birthDate = 29.02.-2700

address = getAddress f4
-- address = Tatooine
